home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / vision / povray / scenes / level3 / ionic5 / ionic5.pov < prev    next >
Text File  |  1995-11-25  |  18KB  |  825 lines
  1. // Persistence of Vision Raytracer Version 2.0
  2. //   This data includes 1 Wall, 1 large 2nd floor column,
  3. //   & 2 smaller ionic colums.
  4.  
  5. //   b-snake.dat is the lower ctds twist that goes around the 
  6. //   door openings.
  7. //   s-head3.dat is the head & top twist of creature
  8. //   turn.dat is ctds data that creates the ionic turned capitals.
  9. //   panther.dat is csg of panther figure.
  10.  
  11. //  Modified for use in stereo pair. Two of the GIF
  12. //  images have been replaced with single colors, and a third column
  13. //  was added to the bottom row.
  14. //
  15. //  Three cameras are included, the original, and two for stereo.
  16.  
  17.  
  18. #include "colors.inc"
  19. #include "shapes.inc"
  20. #include "marble.inc"
  21. #include "b-snake.inc"
  22. #include "turn.inc"
  23. #include "panther.inc"
  24. #include "s-head3.inc"
  25.  
  26. #declare pink = color red 1.0 green 0.5 blue 0.5
  27.  
  28.  
  29. /* original camera */
  30. camera {
  31.    location <-50, 80, -220>
  32.    direction <0, 0, 1.5>
  33.    up <0, 1, 0>
  34.    right <4/3, 0, 0>
  35. }
  36.  
  37. /* camera for left eye, render at 768 x 480 or similar aspect ratio */
  38. /*
  39. camera {
  40.     location <-61, 80, -220>
  41.     direction <0, 0, 1.4>
  42.     up <0, 1, 0>
  43.     right <1.6, 0, 0>
  44. }
  45. */
  46.  
  47. /* camera for right eye, render at 768 x 480 or similar aspect ratio */
  48. /*
  49. camera {
  50.     location <-39, 80, -220>
  51.     direction <0, 0, 1.4>
  52.     up <0, 1, 0>
  53.     right <1.6, 0, 0>
  54. }
  55. */
  56.  
  57. /*-------------- WORLD WALLS ---------------------------------*/
  58. sphere {
  59.    <0, 0, 0>, 50000
  60.    texture {
  61.       pigment { MidnightBlue }
  62.       finish {
  63.          ambient 1.0
  64.          diffuse 0.0
  65.       }
  66.    }
  67. }
  68.  
  69. /*---------------LIGHT #1------------------------------------*/
  70. light_source { <700, 150, -500> color White }
  71.  
  72. /*--------------LIGHT #2-------------------------------------*/
  73. light_source { <-4000, 100, -1000> color White }
  74.  
  75.  
  76. /**********************************************************************/
  77.  
  78. /*-----------BASE OF COLUMN A / TOP FLOOR-------------------*/
  79. #declare base_a = union {
  80.    sphere { <0, 0, 0>, 1 scale <13, 5.5, 13> }
  81.    sphere { <0, 0, 0>, 1 scale <11, 3, 11> translate 4*y  }
  82.    cylinder { <0,0,0>, y, 1 scale <10, 4, 10> translate 5*y }
  83.  
  84.    texture {
  85.       marble1
  86.       scale <9, 6, 4>
  87.       finish {
  88.          ambient 0.5
  89.          diffuse 1
  90.       }
  91.    }
  92.    texture {
  93.       marble4
  94.       scale <7, 12, 9>
  95.       rotate <0, 0, -40>
  96.       finish {
  97.          diffuse 1.0
  98.          phong 0.6
  99.          phong_size 50
  100.       }
  101.    }
  102.  
  103.    rotate 40*y
  104.    bounded_by {
  105.       cylinder {
  106.          <0,0,0>, y, 1
  107.          scale <13.5, 16, 13.5>
  108.          translate -4*y
  109.       }
  110.    }
  111. }
  112.  
  113. /*-----------MOTIF TILE WORK--------------------*/
  114. #declare motif1 = cylinder {
  115.    <0,0,0>, y, 1
  116.    scale <9.5, 7, 9.5>
  117.  
  118.    texture {
  119.       pigment {
  120.          image_map { gif "congo4.gif" }
  121.          scale <19, 7, 1>
  122.          translate <-9.5, 0, -1>
  123.        }
  124.        finish {
  125.           ambient 0.3
  126.           diffuse 0.9
  127.           phong 0.6
  128.        }
  129.     }
  130.  }
  131.  
  132.  
  133. /*----------- COLUMN A -------------------------------------------------*/
  134. #declare column_a = cylinder {
  135.    <0,0,0>, y, 1
  136.    scale <9.3, 50, 9.3>
  137.  
  138.    texture {
  139.       marble1
  140.       finish {
  141.          crand 0.01
  142.          ambient 0.2
  143.          diffuse 0.8
  144.       }
  145.       scale <16, 4, 4>
  146.    }
  147.    texture {
  148.       marble2
  149.       scale <10, 6, 5>
  150.       rotate -30*z
  151.       finish { diffuse 1.0 }
  152.    }
  153.    texture {
  154.       marble4
  155.       finish {
  156.          phong 0.6
  157.          phong_size 45
  158.       }
  159.       scale <8, 15, 5>
  160.       rotate <0, 0, 50>
  161.    }
  162.  
  163.    rotate 10*y
  164. }
  165.  
  166.  
  167.  
  168. /*-----------COMBINE COLUMN & BASE --------------------------------*/
  169. #declare top_column = union {
  170.    object { base_a }
  171.    object { motif1 translate 9*y }
  172.    object { column_a translate 12*y }
  173.  
  174.    bounded_by {
  175.       cylinder {
  176.          <0,0,0>, y, 1
  177.          scale <13.5, 50, 13.5>
  178.          translate -3*y
  179.       }
  180.    }
  181. }
  182.  
  183.  
  184. /*--------------------TOP  FLOOR---------------------------------------*/
  185. #declare floor = object {
  186.    Cube
  187.    scale <100, 1, 50>
  188.  
  189.    texture {
  190.       pigment { Salmon }
  191.       finish {
  192.          ambient 0.2
  193.          diffuse 0.5
  194.          phong 1.0
  195.          phong_size 10
  196.       }
  197.    }
  198. }
  199.  
  200. /*----------- ROUND CORNER ----------------------------*/
  201. #declare sp1 = sphere { <0, 0, 0>, 2 }
  202.  
  203. #declare round_cap = object {
  204.    union {
  205.       object { sp1 translate <-100, 0, -50> }
  206.       object { sp1 translate <-100, 0,  50> }
  207.       object { sp1 translate <100, 0, -50> }
  208.       object { sp1 translate <100, 0,  50>  }
  209.       cylinder { <0,0,0>, x, 1 scale <200, 2, 2> translate <-100, 0, -50> }
  210.       cylinder { <0,0,0>, z, 1 scale <2, 2, 100> translate <-100, 0, -50> }
  211.    }
  212.  
  213.    texture {
  214.       marble1
  215.       scale <50, 10, 40>
  216.       finish {
  217.          ambient 0.4
  218.          diffuse 0.9
  219.       }
  220.    }
  221.    texture {
  222.       marble2
  223.       scale <40, 5, 20>
  224.       rotate <0, 0, 40>
  225.    }
  226.    texture {
  227.       marble4
  228.       scale <20, 20, 20>
  229.       rotate <0, 0, -40>
  230.       finish { phong 0.6 phong_size 20 }
  231.    }
  232.  
  233.    bounded_by {
  234.       object {
  235.          Cube
  236.          scale <103, 25, 53>
  237.          translate <0, 0, 0>
  238.       }
  239.    }
  240. }
  241.  
  242. /*--------------- ONE DENTILE ----------------------------------*/
  243. #declare d1 = object { Cube scale <1, 1.5, 2> }
  244.  
  245. #declare cornice = union {
  246.    object { Cube scale <103, 0.5, 53> translate <0, 2.5, 0> }
  247.    object { Cube scale <103, 1, 53>   translate <0, -2, 0>  }
  248.    object { Cube scale <101, 2, 51>   translate <0, 0, 0>   }
  249.  
  250.    texture {
  251.       marble1
  252.       scale <10, 6, 4>
  253.       finish {
  254.          ambient 0.4
  255.          diffuse 1.0
  256.       }
  257.    }
  258.    texture {
  259.       marble2
  260.       scale <7, 6, 4>
  261.       rotate <0, 0, 40>
  262.    }
  263.    texture {
  264.       marble4
  265.       scale <3, 6, 5>
  266.       rotate <0, 0, -40>
  267.       finish {
  268.          phong 0.6
  269.          phong_size 20
  270.       }
  271.    }
  272.  
  273.    bounded_by {
  274.       object {
  275.          Cube
  276.          scale <104, 3.5, 54>
  277.          translate <0, 0, 0>
  278.       }
  279.    }
  280. }
  281.  
  282. /*-------------------- ROW OF DENTILES ---------------*/
  283. #declare dentile_a = union {
  284.    object { d1 translate -50*x }
  285.    object { d1 translate -45*x }
  286.    object { d1 translate -40*x }
  287.    object { d1 translate -35*x }
  288.    object { d1 translate -30*x }
  289.    object { d1 translate -25*x }
  290.    object { d1 translate -20*x }
  291.    object { d1 translate -15*x }
  292.    object { d1 translate -10*x }
  293.    object { d1 translate  -5*x }
  294.    object { d1 translate   0*x }
  295.    object { d1 translate  50*x }
  296.    object { d1 translate  45*x }
  297.    object { d1 translate  40*x }
  298.    object { d1 translate  35*x }
  299.    object { d1 translate  30*x }
  300.    object { d1 translate  25*x }
  301.    object { d1 translate  20*x }
  302.    object { d1 translate  15*x }
  303.    object { d1 translate  10*x }
  304.    object { d1 translate   5*x }
  305.  
  306.    texture {
  307.       marble1
  308.       scale <10, 6, 4>
  309.       finish {
  310.          ambient 0.4
  311.          diffuse 0.9
  312.       }
  313.    }
  314.    texture {
  315.       marble2
  316.       scale <7, 6, 4>
  317.       rotate <0, 0, 40>
  318.    }
  319.    texture {
  320.       marble4
  321.       scale <3, 6, 4>
  322.       rotate <0, 0, -40>
  323.       finish {
  324.          phong 0.6
  325.          phong_size 20
  326.       }
  327.    }
  328.  
  329.    bounded_by {
  330.       object {
  331.          Cube
  332.          scale <60, 2, 2>
  333.          translate <0, 0, 0>
  334.       }
  335.    }
  336. }
  337.  
  338. /*--------------  COMBINE CORNICE, FLOOR, CAP & DENTILES -----------*/
  339. #declare top_floor = union {
  340.    object { floor     translate <0, 9, 0>     }
  341.    object { round_cap translate <0, 7, 0>     }
  342.    object { cornice   translate <0, 3, 0>     }
  343.    object { dentile_a translate <-50, 4, -52> }
  344.    object { dentile_a translate < 50, 4, -52>  }
  345.  
  346.    bounded_by {
  347.       object {
  348.          Cube
  349.          scale <105, 8, 57>
  350.          translate <0, 8, 0>
  351.       }
  352.    }
  353. }
  354.  
  355. /*------------------MAKE AN IONIC CAPIAL---------------------------*/
  356.  
  357. #declare turn = object { s1 rotate -90*x }
  358.  
  359. /*--------------- 1/2 SECTION OF CAP ------------------------------*/
  360. #declare cap_a = union {
  361.    sphere {
  362.       <0, 0, 0>, 1 
  363.       scale <7, 2, 7>
  364.       translate <0, 1, 0>
  365.    }
  366.    cylinder {
  367.       <0,0,0>, y, 1
  368.       scale <6, 5, 6>
  369.       translate <0, 2, 0>
  370.    }
  371.    sphere {
  372.       <0, 0, 0>, 1 
  373.       scale <8, 3, 8>
  374.       translate <0, 8, 0>
  375.    }
  376.    cylinder {
  377.       <0,0,0>, y, 1
  378.       scale <8, 2, 8>
  379.       translate <0, 8, 0>
  380.    }
  381.  
  382.    texture {
  383.       marble1
  384.       finish {
  385.          ambient 0.4
  386.          diffuse 1.0
  387.       }
  388.       scale <5, 13, 4>
  389.    }
  390.    texture {
  391.       marble4
  392.       finish {
  393.          diffuse 1.0
  394.          phong 0.6
  395.          phong_size 20
  396.       }
  397.       scale <5, 7, 3>
  398.       rotate <0, 0, 50>
  399.    }
  400.  
  401.    bounded_by {
  402.       cylinder {
  403.          <0,0,0>, y, 1
  404.          scale <8.5, 11, 8.5>
  405.          translate <0, -0.5, 0>
  406.       }
  407.    }
  408. }
  409.  
  410.  
  411. /*-------------- THE OTHER 1/2-----------------------------*/
  412. #declare cap_b = union {
  413.    cylinder { <0,0,0>, y, 1 scale <1.2, 8, 1.2> translate <1, 0, -4>  }
  414.    cylinder { <0,0,0>, y, 1 scale <1.2, 8, 1.2> translate <-1, 0, -4> }
  415.  
  416.    cylinder { <0,0,0>, y, 1 scale <1.2, 4, 1.2> translate <-2, 0, -4> }
  417.    cylinder { <0,0,0>, y, 1 scale <1.2, 4, 1.2> translate <2, 0, -4>  }
  418.  
  419.    object { Cube scale <10, 2, 8> translate <0, 10, 2> }
  420.    object { Cube scale <7, 4, 4> translate <0, 4, 0>  }
  421.    cylinder { <0,0,0>, z, 1 scale <4.5, 4.5, 8> translate <-6, 4, -4> }
  422.    cylinder { <0,0,0>, z, 1 scale <4.5, 4.5, 8> translate <6, 4, -4>  }
  423.  
  424.    texture {
  425.       marble1
  426.       finish {
  427.          ambient 0.4
  428.          diffuse 1.0
  429.       }
  430.       scale <5, 13, 4>
  431.    }
  432.    texture {
  433.       marble4
  434.       finish {
  435.          diffuse 1.0
  436.          phong 0.6
  437.          phong_size 20
  438.       }
  439.       scale <5, 7, 3>
  440.       rotate 50*z
  441.    }
  442.  
  443.    bounded_by {
  444.       object {
  445.          Cube
  446.          scale <10.5, 7, 10.5>
  447.          translate <0, 7, 0>
  448.       }
  449.    }
  450. }
  451.  
  452.  
  453. /*-----------2 HALFS & 2 TURNS MAKE A WHOLE ------------------------*/
  454. #declare capital = union {
  455.    object { cap_a translate <0, 0, 0> }
  456.    object { cap_b translate <0, 10, 0> }
  457.    object { turn translate <-6, 14, -4> }
  458.    object { turn rotate <0, 180, 0> translate <6, 14, -4> }
  459.  
  460.    bounded_by {
  461.       object {
  462.          Cube
  463.          scale <11, 13, 11>
  464.          translate <0, 13, 0>
  465.       }
  466.    }
  467. }
  468.  
  469. /*--------------MAKE COLUMN-------------------*/
  470.  
  471.  
  472. /*-----------MOTIF TILE WORK--------------------*/
  473. #declare motif2 = cylinder {
  474.    <0,0,0>, y, 1
  475.    scale <6.5, 8, 6.5>
  476.  
  477.    texture {
  478.       pigment {
  479.          image_map { gif "congo4.gif" }
  480.          scale <13, 8, 1>
  481.          translate <-6.5, 0, -1>
  482.       }
  483.       finish {
  484.          ambient 0.3
  485.          diffuse 0.9
  486.          phong 1.0
  487.       }
  488.    }
  489. }
  490.  
  491. #declare column_b = cylinder {
  492.    <0,0,0>, y, 1
  493.    scale <6, 54, 6>
  494.  
  495.    texture {
  496.       marble1
  497.       finish {
  498.          ambient 0.4
  499.          diffuse 0.8
  500.          crand 0.1
  501.       }
  502.       scale <9, 30, 18>
  503.    }
  504.    texture {
  505.       marble2
  506.       scale <10, 18, 5>
  507.       rotate <0, 0, -30>
  508.       finish { diffuse 1.0 }
  509.    }
  510.    texture {
  511.       marble4
  512.       finish {
  513.          diffuse 0.9
  514.          phong 0.8
  515.          phong_size 45
  516.       }
  517.       scale <4, 15, 5>
  518.       rotate 50*z
  519.    }
  520. }
  521.  
  522.  
  523. /*-----------THE COMPLETE BOTTOM COLUMN---------------------------------*/
  524. #declare bottom_column = union {
  525.    object { capital  translate <0, 58, 0> }
  526.    object { motif2   translate <0, 50, 0>  }
  527.    object { column_b translate <0, 0, 0> }
  528.  
  529.    bounded_by {
  530.       cylinder {
  531.          <0,0,0>, y, 1
  532.          scale <12, 85, 12>
  533.          translate <0, 0, 0>
  534.       }
  535.    }
  536. }
  537.  
  538. /*---------------------START LOWER WALLS-----------------------------*/
  539.  
  540. /*----------- ABOVE DOOR SECTION OF WALL -----------------------------*/
  541. #declare brick_wall = object {
  542.    Cube
  543.    scale <30, 6, 3>
  544.  
  545.    texture {
  546.       marble1
  547.       finish {
  548.          ambient 0.2
  549.          diffuse 0.9
  550.       }
  551.       scale <20, 30, 4>
  552.    }
  553.    texture {
  554.       marble2
  555.       scale <20, 9, 5>
  556.       finish { diffuse 1.0 }
  557.       rotate -30*z
  558.    }
  559.    texture {
  560.       marble4
  561.       finish {
  562.          phong 0.6
  563.          phong_size 25
  564.       }
  565.       scale <18, 18, 3>
  566.       rotate 50*z
  567.    }
  568. }
  569.  
  570. /*-------------- ARCH SECTION OF WALL --------------------------------*/
  571. #declare top_wall = object {
  572.    difference {
  573.       object { Cube scale <30, 10, 3> translate <0, 0, 0.01> }
  574.       object { Cylinder_Z scale <13, 13, 1> translate <0, -10, 0> }
  575.    }
  576.  
  577.    texture {
  578.       marble1
  579.       finish {
  580.          ambient 0.2
  581.          diffuse 0.9
  582.       }
  583.       scale <30, 20, 4>
  584.    }
  585.    texture {
  586.       marble2
  587.       scale <26, 16, 5>
  588.       finish { diffuse 1.0 }
  589.       rotate -30*z
  590.    }
  591.    texture {
  592.       marble4
  593.       finish {
  594.          phong 0.6
  595.          phong_size 25
  596.       }
  597.       scale <15, 27, 2>
  598.       rotate 50*z
  599.    }
  600.    bounded_by {
  601.       object {
  602.          Cube
  603.          scale <30, 10, 2>
  604.          translate <0, 0, 0>
  605.       }
  606.    }
  607. }
  608.  
  609.  
  610. /*------------------ TRIM ---------------------------------------------*/
  611. #declare molding_2 = union {
  612.    difference {
  613.       cylinder { <0,0,0>, z, 1 scale <16, 16, 12> translate <0, 0, -6>  }
  614.       object { Cylinder_Z scale <13, 13, 1> }
  615.    }
  616.    object { Cube scale <10, 2, 6> translate <-21, -2, 0>  }
  617.    object { Cube scale <10, 2, 6> translate <21, -2, 0>  }
  618.    object { Cube scale <31, 1, 6> translate <0, 17, 0>  }
  619.  
  620.    texture {
  621.       marble1
  622.       finish {
  623.          ambient 0.5
  624.          diffuse 1.0
  625.       }
  626.       scale <15, 3, 4>
  627.    }
  628.    texture {
  629.       marble4
  630.       finish {
  631.          phong 0.8
  632.          phong_size 15
  633.          ambient 0.6
  634.       }
  635.       scale <15, 7, 6>
  636.       rotate 50*z
  637.    }
  638.  
  639.    bounded_by {
  640.       object {
  641.          Cube
  642.          scale <31, 13, 4>
  643.          translate 9*y
  644.       }
  645.    }
  646. }
  647.  
  648. #declare motif3 = object {
  649.    Cube
  650.    scale <9.5, 5, 3.1>
  651.  
  652.    texture {
  653.       pigment {
  654.          image_map { gif "congo4.gif"  }
  655.          scale <19, 10, 1>
  656.          translate <-9.5, -5, -1>
  657.       }
  658.       finish {
  659.          ambient 0.3
  660.          diffuse 0.9
  661.          phong 1.0
  662.       }
  663.    }
  664. }
  665.  
  666. /*----------WALLS FLANKING DOOR WAY -----------------------------------*/
  667. #declare low_wall = object {
  668.    Cube
  669.    scale <9, 22, 3>
  670.  
  671.    texture {
  672.       marble1
  673.       finish {
  674.          ambient 0.3
  675.          diffuse 0.9
  676.       }
  677.       scale <15, 20, 7>
  678.    }
  679.    texture {
  680.       marble2
  681.       scale <10, 25, 3>
  682.       finish { diffuse 1.0 }
  683.       rotate <0, 0, -30>
  684.    }
  685.    texture {
  686.       marble4
  687.       finish {
  688.          phong 0.8
  689.          phong_size 25
  690.          ambient 0.5
  691.       }
  692.       scale <8, 16, 3>
  693.       rotate 50*z
  694.    }
  695. }
  696.  
  697. /*----------COMPOSITE THE WALL------------------------------*/
  698.  
  699. #declare wall = union {
  700.    object { low_wall translate <-21, 22, 0>  }
  701.    object { low_wall translate <21, 22, 0>  }
  702.    object { motif3 translate <-21, 42, 0>  }
  703.    object { motif3 translate <21, 42, 0>  }
  704.    object { molding_2 translate <0, 50, 0>  }
  705.    object { top_wall translate <0, 60, 0>  }
  706.    object { brick_wall translate <0, 74, 0>  }
  707.  
  708.    bounded_by {
  709.       object {
  710.          Cube
  711.          scale <32, 41, 4>
  712.          translate <0, 41, 0>
  713.       }
  714.    }
  715. }
  716.  
  717.  
  718. /*--------CREATE INSIDE BACK WALL-----------------------*/
  719. object {
  720.    Cube
  721.    scale <95, 55, 1>
  722.  
  723.    texture {
  724.       marble1
  725.       finish {
  726.          ambient 0.2
  727.          diffuse 0.9
  728.       }
  729.       scale <40, 30, 5>
  730.    }
  731.    texture {
  732.       marble2
  733.       scale <30, 60, 3>
  734.       rotate -30*z
  735.    }
  736.    texture {
  737.       marble4
  738.       finish {
  739.          phong 0.8
  740.          phong_size 25
  741.       }
  742.       scale <30, 20, 3>
  743.       rotate 50*z
  744.    }
  745.    translate <0, 15, 10>
  746. }
  747.  
  748.  
  749. /*----------*** PUT UP THE WALLS ****--------------------*/
  750.  
  751. object { top_column rotate 10*y  scale 1.9 translate <-30, 94, -25> }
  752. object { top_floor  translate <-10, 80, 0> }
  753. object { bottom_column scale <1.3, 1, 1.3> translate <-100, 0, -40>  }
  754. object { bottom_column scale <1.3, 1, 1.3> translate <-30, 0, -40>  }
  755. object { bottom_column scale <1.3, 1, 1.3> translate <40, 0, -40>  }
  756. object { wall translate <5, 0, -32>    }
  757. object { wall translate <-65, 0, -32>  }
  758.  
  759.  
  760.    /*---------------------BACKDROP---------------------------------*/
  761. object {
  762.    Cube
  763.    scale <2000, 1500, 1>
  764.  
  765.    texture {
  766.       pigment { Maroon }
  767.       // image_map {  <1.0 -1.0 0> gif "sky1.gif"  }    // Optional sky map
  768.       // scale <4000 3000 2> translate <-2000 -1500 -2>
  769.       finish {
  770.          ambient 0.2
  771.          diffuse 0.6
  772.       }
  773.    }
  774.  
  775.    texture {
  776.       pigment {
  777.          gradient y
  778.          color_map {
  779.             [0.0 0.3 color Salmon color BlueViolet filter 0.3]
  780.             [0.3 1.0 color BlueViolet filter 0.3 color Black filter 0.2]
  781.          }
  782.          scale <4000, 3000, 1>
  783.          translate <0, -1500, 0>
  784.       }
  785.       finish {
  786.          ambient 1.0
  787.          diffuse 0.0
  788.       }
  789.    }
  790.    scale <1, 1, 1>
  791.    translate <0, 0, 2000>
  792. }
  793.  
  794.  
  795. /*------------------- CREATURE & MOTHER-IN-LAW -------------------------*/
  796.  
  797. object {
  798.    panther
  799.    rotate -20*y
  800.    scale 1.2
  801.    translate <-70, 89.5, -10>
  802. }
  803.  
  804. object {
  805.    lizard
  806.    scale <1, 0.9, 1>
  807.    rotate -10*z
  808.    translate <-33, 16, -20>
  809. }
  810.  
  811. #declare snake = union {
  812.     object { top }
  813.     object {
  814.        head 
  815.        scale <1.9, 1.6, 1.6>
  816.        rotate <0, -90, -90>
  817.        translate <23, 0, -13>
  818.     }
  819.     rotate <-90, -180, -90>
  820. }
  821.  
  822. object { snake  translate <-4, 87, -68> }
  823.  
  824. // end-of-file
  825.